Top 10k strings from Shape Sort (1983)(Widgit Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   6                
   3 ;"COPYRIGHT WIDGIT SOFTWARE  
   3  STOP THE TAPE 
   2 M=W*(N-I):
   2 *(X(S)-I))
   1 X(PJ)=P*(1
   1 X(PJ)+3190
   1 X(P)=P*(I+
   1 X(K)=R*((I+
   1 W=(S-I)*D:
   1 W=(P-I)*D:
   1 W,O;"PICK THE 'ODD ONE OUT'":
   1 V=R+((Y-I)*W)
   1 T(P)=X(S):
   1 SIZE SORT R
   1 SHAPE SORT
   1 J;"HOUSES":
   1 HOUSES    { ,
   1 A;"SIZE SORT"
   1 ;"THE AIM OF THIS PROGRAMME IS TO"
   1 ;"SPACE KEY";
   1 ;"SHAPE SORT"
   1 ;"PRESS ANY KEY TO CONTINUE"
   1 ;"PRESS 0 TO STOP "
   1 ;"CHOOSE 1 OR 2":
   1 ;" TO MOVE THE" :
   1 ;" TO MOVE THE SHAPE"
   1 ,O;"USE THE ";
   1 ,O;"THERE ARE 2 LEVELS OF DIFFICULTY":
   1 ,O;"THEN PRESS ";
   1 ,O;"THE PURPOSE IS TO ARRANGE THE":
   1 ,O;"PRESS ANY OTHER KEY TO START"
   1 ,O;"PRESS 0 TO STOP NOW"
   1 ,O;"PRESS 0 TO END NOW":
   1 ,L;"PRESS 0 TO STOP"
   1 ,G;"PRESS 0 TO STOP"
   1 ,(N+((S-I)*6
   1 ,((S-I)*D)+A;
   1 ,((((S-I)*D)+A)-N);
   1 "WHEN IT IS UNDER THE IDENTICAL"
   1 "UNTIL IT IS BY THE 'ODD' HOUSE":
   1 "TOP OF THE SCREEN WITH ONE OF"
   1 "THOSE SHAPES UNDERNEATH"
   1 "THIS CAN BE MOVED ALONG USING"
   1 "THEN PRESS ";
   1 "SHAPES IN SIZE, BIGGEST FIRST"
   1 "SHAPE PRESS ";
   1 "MOVE THE CAR BY PRESSING ";
   1 "MATCH 2 IDENTICAL SHAPES"
   1 "ARROW TO THE SHAPE YOU WANT TO":
   1 "A ROW OF 4 SHAPES APPEARS AT THE"